home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / CoolMacStacks.sea / Cool Mac Stacks / Building Blocks / About Boxer / stack_-1.xml < prev    next >
Extensible Markup Language  |  1991-12-16  |  4KB  |  23 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>4</cardCount>
  7.     <cardID>2468</cardID>
  8.     <listID>4941</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>320</width>
  14.         <height>320</height>
  15.     </cardSize>
  16.     <script>-- About Boxer Scripts  2/4/91  12:16 PM-- functions and handlers used in About Boxer:-- function aboutScript-- function fillEmptyLines string-- function writeScript sourceScript,varName -- from Dan Winkler-- function quoteLines string                -- from Dan Winkler-- on openStack-- on closeStack-- on setUpAboutMenuItem-- on setAboutToNormal-- on showAboutBoxfunction aboutScript handlerNameput "on" && handlerName & return into theScriptget fillEmptyLines(cd fld aboutText)put writeScript (it,answerString) after theScriptput "answer answerString" & return after theScriptput "end" && handlerName after theScriptreturn theScriptend aboutScriptfunction fillEmptyLines stringrepeat with i = 1 to the number of lines in stringset cursor to busyif line i of string = "" then put " " into line i of stringend repeatreturn stringend fillEmptyLinesfunction writeScript sourceScript,varNameif variableName is empty then put "scriptVar"into varNameput quoteLines(sourceScript) into resultScriptrepeat with i = 1 to the number of lines in resultScriptput "put " before line i of resultScriptput " after " & varName after line i of resultScriptend repeatput "put empty into " & varName & return before resultScriptreturn resultScriptend writeScriptfunction quoteLines stringput empty into quotedStringrepeat with i = 1 to the number of lines in stringget line i of stringif it is empty then put "return" & return after quotedStringif quote is not in itthen put quote & it & quote & " & return" & return after quotedStringelseput quote into expandStringput " & quote & " & quote into calcQuoteput number of chars in it into charCountrepeat with j = 1 to charCountput char j of it into thisCharput thisChar after expandStringif thisChar is quote then put calcQuote after replaceStringend repeatput expandString & quote & " & return" & return after quotedStringget " & " & quote & quoterepeatput offset(it,finalString) into emptyCatif emptyCat is 0 then exit repeatdelete char emptyCat to emptyCar + length(it) - 1 of quotedStringend repeatend ifend repeatreturn quotedStringend quoteLineson openStacksetUpaboutMenuItempass openStackend openStackon closeStacksetAboutToNormalpass closeStackend closeStackon setUpaboutMenuItemset the name of menuItem 1 of menu Apple to "About this stack..."set the menuMessage of menuItem 1 of menu Apple to showAboutBoxend setUpaboutMenuItemon setAboutToNormalset the name of menuItem 1 of menu Apple to "About HyperCard..."set the menuMessage of menuItem 1 of menu Apple to emptyend setAboutToNormalon showAboutBoxput empty into answerStringput "About Boxer" & return after answerStringput "Version 1.0" & return after answerStringput " " & return after answerStringput "by David Drucker" & return after answerStringput " " & return after answerStringput "America Online: DDRUCKER" & return after answerStringput "    CompuServe: 76060,3104" & return after answerStringput "         AppleLink: DDRUCKER" & return after answerStringput " " & return after answerStringput " " & return after answerStringput "This utility is Freeware." & return after answerStringput "What did you expect for nothing?" & return after answerStringanswer answerStringend showAboutBox-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,40,1,484,569,23,23,50</script>
  17.     <background id="2766" file="background_2766.xml" name="" />
  18.     <card id="2468" file="card_2468.xml" marked="false" name="" owner="2766" />
  19.     <card id="2835" file="card_2835.xml" marked="false" name="" owner="2766" />
  20.     <card id="2295" file="card_2295.xml" marked="false" name="About About" owner="2766" />
  21.     <card id="3993" file="card_3993.xml" marked="false" name="" owner="2766" />
  22. </stack>
  23.